PC Home 49/PC_Home_Issue_49.iso/lldemo/lldemo.shr/ROSETTA.EXE/ROSETTA.DXR/00598_patch scripts.ls

Text File | 1996-06-24 | 1.6 KB | 40 lines

on patchText newChap
  if newChap = "Espa├▒ol 08-04" then
    set the text of cast (344 + 38) to "Corea es el país asiático coloreado de rojo en este mapa."
    set the text of cast (344 + 36) to "Viet Nam está en Asia. Está coloreado de rojo."
  else
    if newChap = "Espa├▒ol 08-12" then
      set the text of cast (344 + 14) to "Corea es el país asiático coloreado de rojo en este mapa."
    else
      if newChap = "Français 04-01" then
        set the text of cast (344 + 36) to "Est-ce que le chien sourit?" & RETURN & "Est-ce que les chiens peuvent sourire?"
      else
        if newChap = "Deutsch 06-07" then
          repeat with i = 1 to 4
            set x to the text of cast (364 + i)
            set len to the number of chars in x
            put ".«" into char len - 1 to len of x
            set the text of cast (364 + i) to x
            set x to the text of cast (376 + i)
            set len to the number of chars in x
            put "!«" into char len - 1 to len of x
            set the text of cast (376 + i) to x
          end repeat
          set x to the text of cast 383
          set len to the number of chars in x
          put "." into char len - 1 of x
          set the text of cast 383 to char 1 to len - 1 of x
        else
          if newChap = "Deutsch 02-09" then
            set the text of cast (344 + 18) to "Der Kopf des Mannes ist auf seinen Händen aufgestützt."
          else
            if newChap = "Deutsch 05-08" then
              set the text of cast (344 + 29) to "Jemand spielt elektrische Baßgitarre."
            end if
          end if
        end if
      end if
    end if
  end if
end